www.gusucode.com > 星梦奇缘交友网 1 > 星梦奇缘交友网 1.0源码程序/love/wish_list.asp

    <!--#include file=conn.asp-->
<!--#include file=config.asp-->
<!--#include file=const.asp-->
<!--#include file=char.asp-->
<%
'=========================================================
' File: wish_list.asp
' Version:3.0
' Date: 2005-8-26
' Script Written by xmrxw
'=========================================================
' Copyright (C) 2004,2005 920520.com All rights reserved.
' Web: http://www.920520.com,http://www.xmzxw.com
' Email: info@mssky.com,super@mssky.com
' QQ：10689579　Msn：zdlmicr@hotmail.com
'=========================================================
dim typeid
response.buffer=true
typeid=checkStr(Request("sort"))
if typeid="" or not isnumeric(typeid) then
errmsg=errmsg+"<br>"+"<li>参数错误！"
	founderr=true
end if
stats="祈愿专区列表"
call nav()
if founderr then
	call head_var("","")
	call Mslove_error()
else
	call head_var("祈愿专区","wish.asp")
call tumppages()'翻页处理
strFileName="wish_list.asp?"
call main()
end if
call activeonline()
call footer()

sub main()%>
<TABLE cellSpacing=0 cellPadding=0 width=750 align=center bgColor=#ffbccd 
border=0>
  <TBODY>
    <TR> 
      <TD><IMG height=78 src="images/wish/qixi200508081.jpg" 
      width=159></TD>
      <TD><IMG height=78 src="images/wish/qixi200508082.jpg" 
      width=178></TD>
      <TD><IMG height=78 src="images/wish/qixi200508083.jpg" 
      width=176></TD>
      <TD><IMG height=78 src="images/wish/qixi200508084.jpg" 
      width=237></TD>
    </TR>
    <TR> 
      <TD><IMG height=82 src="images/wish/qixi200508085.gif" 
      width=159></TD>
      <TD><IMG height=82 src="images/wish/qixi200508086.jpg" 
      width=178></TD>
      <TD><IMG height=82 src="images/wish/qixi200508087.jpg" 
      width=176></TD>
      <TD><IMG height=82 src="images/wish/qixi200508088.jpg" 
      width=237></TD>
    </TR>
    <TR> 
      <TD><IMG height=50 src="images/wish/qixi200508089.jpg" 
      width=159></TD>
      <TD><IMG height=50 src="images/wish/qixi2005080810.gif" 
      width=178></TD>
      <TD><IMG height=50 src="images/wish/qixi2005080811.jpg" 
      width=176></TD>
      <TD><IMG height=50 src="images/wish/qixi2005080812.jpg" 
      width=237></TD>
    </TR>
    <TR> 
      <TD background=images/wish/qixi2005080814.gif colSpan=3> 
        <DIV align=right> </DIV></TD>
      <TD vAlign=top rowSpan=3><IMG height=57 
      src="images/wish/qixi2005080813.jpg" width=237></TD>
    </TR>
    <TR> 
      <TD vAlign=bottom background=images/wish/qixi2005080814.gif 
    colSpan=3> <TABLE cellSpacing=0 cellPadding=0 width=324 border=0>
          <TBODY>
            <TR> 
              <TD width=62>&nbsp;</TD>
              <TD width=18 
            background=images/wish/qixi2005080818.gif><IMG 
            height=38 src="images/wish/qixi2005080815.gif" 
            width=11></TD>
              <TD width=37 
            background=images/wish/qixi2005080818.gif><IMG 
            height=38 src="images/wish/qixi2005080816.gif" 
            width=35></TD>
              <TD class=t14 align=middle width=193 
          background=images/wish/qixi2005080818.gif><STRONG><A 
            href="wish.asp?action=add" 
            target=_blank><FONT color=#ffffff><%=stats%></FONT></A></STRONG></TD>
              <TD align=right width=14 
          background=images/wish/qixi2005080817.gif><IMG 
            height=38 src="images/wish/qixi2005080817.gif" 
            width=14></TD>
            </TR>
          </TBODY>
        </TABLE></TD>
    </TR>
    <TR> 
      <TD vAlign=bottom background=images/wish/qixi2005080814.gif 
    colSpan=3>&nbsp;</TD>
    </TR>
  </TBODY>
</TABLE>
<table width="750" align=center cellpadding=0 cellspacing=0 class=tableborder1>
  <tr align="left"> 
    <td width="8%" height="28" bgcolor="#ffbccd" >&nbsp;</td>
    <td width="83%" height="28" bgcolor="#ffbccd" >&nbsp;</td>
    <td width="9%" height="28" bgcolor="#ffbccd" >&nbsp;</td>
  </tr>
  <%dim userinfo,Starname
  set rs=server.createobject("adodb.recordset")
  sql="select w.username,w.content,w.addtime,w.hits,u.usersex,u.UserBirthday,u.UserInfo,u.UserPhoto from Ms_wish w inner join Ms_user u on w.username=u.username where w.typeid="&typeid&" order by w.id"
rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
call rspages()
do while not rs.eof and page_count<Cint(MaxPerPage)
userinfo=rs(6)
Starname=rs(0)%>
  <tr align="center"> 
    <td width="8%" bgcolor="#ffbccd" >&nbsp; </td>
    <td width="83%" bgcolor="#ffbccd" >
	<TABLE cellSpacing=2 cellPadding=5 width=620 align=center bgColor=#fff2f5 
      border=0>
        <TBODY>
          <TR bgColor=#ffdee6> 
            <TD vAlign=top width=152 height=118> <TABLE height=128 cellSpacing=4 cellPadding=0 width=108 align=center 
            bgColor=#ff9ab2 border=0>
                <TBODY>
                  <TR> 
                    <TD align=middle width=100 height=120> 
                      <%if rs(7)<>"" then
					  response.Write("<img src="&rs(7)&" width=100 height=120>")
					else
					response.Write("<img src=images/wish/qixi2005080821.gif>")
					end if%></TD>
                  </TR>
                </TBODY>
              </TABLE></TD>
            <TD width=462> <TABLE cellSpacing=6 cellPadding=0 width=470 align=center 
              border=0>
                <TBODY>
                  <TR> 
                    <TD><A href="dispuser.asp?username=<%=Starname%>" target=_blank><SPAN class=f14><FONT 
                        color=#f02b8c><B><%=Starname%></B></FONT></SPAN></a>&nbsp;<FONT color=#900536><SPAN class=t14><FONT color=#d91459> 
                      <%if rs(4)=1 then
				response.write("男")
				else
				response.write("女")
				end if%>&nbsp;<%=datediff("yyyy",rs(5),Now())%>岁 <%=split(userinfo,"|||")(4)%><%=split(userinfo,"|||")(5)%></FONT></SPAN><FONT color=#d91459> 
                      --发布时间:<%=rs(2)%></FONT></FONT> </TD>
                  </TR>
                  <TR> 
                    <TD vAlign=top height=30><FONT 
                  color=#f187a0><STRONG>我的祈愿：</STRONG></FONT><FONT 
                  color=#970035><%=rs(1)%></FONT></TD>
                  </TR>
                </TBODY>
              </TABLE>
              <DIV align=right><a href="javascript:openScript('messanger.asp?action=new&touser=<%=htmlencode(Starname)%>',500,400)">短信</a> 
                <font color="#FF0000">|</font> <a href="friendlist.asp?action=addF&myFriend=<%=HTMLEncode(Starname)%>" target=_blank>好友</a> 
                <font color="#FF0000">|</font> <a href="mylove.asp?action=marqa&Typeid=2&touser=<%=HTMLEncode(Starname)%>">求爱</a><font color="#FF0000"> 
                | </font><a href="mylove.asp?action=maradd&Typeid=1&touser=<%=HTMLEncode(Starname)%>">求婚</a><font color="#FF0000"> 
                |</font> <a href="userbook.asp?action=add&ClassID=2&Touser=<%=HTMLEncode(Starname)%>" target=_blank></a> 
                <a href="userbook.asp?action=add&ClassID=2&Touser=<%=HTMLEncode(Starname)%>" target=_blank>留言</a> 
              </DIV></TD>
          </TR>
        </TBODY>
      </TABLE></td>
    <td width="9%" bgcolor="#ffbccd" >&nbsp;</td>
  </tr>
  <%page_count=page_count+1
  rs.movenext
  loop
  end if
  %>
  <tr align="center"> 
    <td width="8%" align="left" bgcolor="#ffbccd">&nbsp;</td>
    <td width="83%" align="left" bgcolor="#ffbccd"><%if totalrec>0 then
		  	call showpage(strFileName)
		  end if%></td>
    <td width="9%" align="left" bgcolor="#ffbccd">&nbsp;</td>
  </tr>
</table>
<TABLE height=81 cellSpacing=0 cellPadding=0 width=750 align=center 
bgColor=#ffbccd border=0>
  <TBODY>
    <TR> 
      <TD width="626" height=47 vAlign=top>&nbsp;</TD>
    </TR>
    <TR> 
      <TD background=images/wish/qixi2005080821.gif bgColor=#fd8aac 
    height=34>&nbsp;</TD>
    </TR>
  </TBODY>
</TABLE>
<%
rs.close
end sub
%>   
</body>
</html>